<!--#include file="../inc/conn.asp"-->
<%Response.CodePage=65001%>
<%Response.Charset="utf-8"%>



<%

'修改密码

if request("act")="psw_cs" then
sql="update huiyuan set passwd='"&MD5_32("1234")&"' where id="&request("id")
conn.execute sql

if err.number=0 then
response.write "1"
else
response.write "{""info"": ""密码修改失败。"",""result"": ""n""}"
end if
end if




if request("act")="add" then
  set rs =server.createobject("ADODB.RecordSet")
	sql="select * from [wx_message] "
 rs.open sql,conn,3,3
 rs.addnew
 rs("wid")=request("id")
  rs("message")=request("content")
 rs("username")=request.Cookies("shiwei_username")
     rs("intime")=now()
	  rs("zhiwei")=request.Cookies("shiwei_zhiwei")
   rs.update
   rs.close
if err.number=0 then
response.write "{""info"": ""评论成功。"",""status"": ""y""}"
else
response.write "{""info"": ""评论失败。"",""status"": ""n""}"
end if

end if


if request("act")="qj" then
  set rs =server.createobject("ADODB.RecordSet")
	sql="select * from [wx_message] "
 rs.open sql,conn,3,3
 rs.addnew
 rs("wid")=request("id")
  rs("message")="客户已取件"
 rs("username")="系统"
     rs("intime")=now()
	  rs("zhiwei")="系统"
   rs.update
   rs.close
   set rs =server.createobject("ADODB.RecordSet")
	sql="select * from [weixiu] where id='"&request("id")&"'"
 rs.open sql,conn,3,3
 
 rs("isok")=1
 rs("qz_rq")=now()
   rs.update
   rs.close 
   
   
if err.number=0 then
response.Write "1操作成功"
else
response.Write "0"
end if

end if

if request("act")="change" then
set rs =server.createobject("ADODB.RecordSet")
sql="select * from [weixiu] where id='"&request("wid")&"'"
rs.open sql,conn,3,3
rs("wx_dw")=request("dw")
 rs.update
   rs.close
   
   
   
if err.number=0 then
response.Write "1操作成功"
else
response.Write "0"
end if

end if



if request("act")="plwx" then

set rs =server.createobject("ADODB.RecordSet")
conn.execute "update [weixiu] set wx_dw='"&request("plwx")&"' where charindex(id,'"&request("xh")&"')>0 "

  if err.number=0 then
response.Write "1操作成功"
else
response.Write "0"
end if

end if

if request("act")="plhf" then
 set rs =server.createobject("ADODB.RecordSet")

sql="select * from [wx_message] "
 rs.open sql,conn,3,3
 a=split(request("xh"),",")
for i=0 to ubound(a)
 rs.addnew
 rs("wid")=trim(a(i))
  rs("message")=request("plhf")
 rs("username")=request.Cookies("shiwei_username")
     rs("intime")=now()
	  rs("zhiwei")=request.Cookies("shiwei_zhiwei")
   rs.update
   next
   rs.close
  if err.number=0 then
response.Write "1操作成功"
else
response.Write "0"
end if

end if




if request("act")="del" then
conn.execute"delete from [wx_message] where id="&request("id")
response.Write "1"
end if


if request("act")="dell" then
conn.execute"delete from ["&request("table")&"] where id="&request("id")
response.Write "1"
end if

if request("act")="audit" then
conn.execute"update lipin set zt=1 where id="&request("id")
response.Write "1"
end if


if request("act")="audits" then
conn.execute"update ["&request("table")&"]  set zt=1 where id="&request("id")
response.Write "1"
end if







%>





